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The -f o 1 loii'i rri* mBchme L3rV3ua.ye proiiir-a/!> cHi<i-'i oe 
concert' old ROM uic-er.' louier- case to the conuent i or^ used by 
<■':€■ <.o ROM F'hTs.! 



.ORIi arid RUN t!-.e ?"'r-o yra/n be lo-u. Then u.UHri the f^-ro^irssn 

,-. o?::.g.r a.'T: I on uiitr< new ROMs. Fyr^'e i'V":' 



-iou i.Mish to concert: ■<-■,„ 

S2.S and we 1 la. ! . . . a s. i. uf-'c-'e''' u 



C- O C4 r ' ir- '■.:^ 



'ice '■.•■en 



i 00 

118 
130 
140 
150 
IbO 
1 70 
180 
190 
208 
210 
220 
230 
240 
250 



FOR J = 826 TO .925 REfiB Fi 
POKE J .. H ■ HEKT 

DhTm 169.' 4.. 133.. 202. • 169.. i ■ i 33. 201 
DFtTFi 32.. 89,. 3.. 168.. 6.- 196.- 282.. 248.. 13 
DfllH 177.. 281.. 170-. 200.. 177.. 201 .. 134 
DflTR 20 1 .. 1 33 .. 282 .. 76 .■ 66 . 3 . 36 .. 1 6Q .• 4 
liflTFi 1 ?7.. 281 .. 240.. 44.. 201 .- 34.. 248.. 4 
DRTR 2£i0 ..76.91,. 3 .. 290 .• 1 77 .. 20 1 .. 248 
DRTR 3 1 .. 28 1 .. 34 .. 249 ..23.201 ,. 65 .. 1 44 
DRTR 243 .. 28 1 .. 9 1 .. 1 44 .. 3 .. 20 1 .. 1 92 ,. 1 44 
DRTR 235.. 201.. 219.. 1 76.. 231 .. 73.. 123 
DflTR 1 45 ■ 201 .■ 76 .. 1 03 .. 3 ,. 200 .. 76 .91:. 3 
DRTR 96,. 255,. 2= 

55.. 255.. 255." 2 -5 -5.. 255 






£di tof- s Note 

Due to -a de i-aa ,■ then a m.' ;. l L be .no oef-'tefiiben issue ot i he 
Tn.3j"i5-a.oton. This doias r'iCit mesn tna"i" Bn'::f less om 11 be 
r~'Ublished Of'' ti'-iat -any ''doub i.e i ss>.a€^s' wi 11 K.-e sent- +0 rriai--.e un 



"i La t^*^at i r' B.ns a* "= tor" ^o un 1 i be 'I'-f-ate'd '...*ot = 



tor lost time., tut or 

j. 9 7 9 n at h £•■ n t h sn S e ?;■ t ,. 1 :•■' 7 9 . T i--- ,ai- 'j s -5 c-- 1 o r v' i,'j 1 , 2 s l-- .b s c: r- 1 .':■ 1 1 o r "i s 

j., i i j f^i-'ji;=<|---^"i-(^i(-.'-tjn. ter'Ti! I. n-3 te the arid o^^" M.r.-i'a ■"■a''"'"ier'' tP'e er:*,i c*t 
Rpr 1 1 . 

Tl-'fe Tr-'.nsBof-i'ji'' is i.ui'" 1. 1 ten fi.rid '.^voduced a Lrfiost en'tmela 
usifVii t^'te Coriirrtodona Wondf-f'ocessor'- ^ LiO'ndn'-o II was i.ur i tten by 
'•■'■ V t •■•' e F i.. i n t e r- o -^ M ,1, s s 1 s s ;i.u -a a .. 1 1 1 s r ' i 1,;: « 



Bi'fs aj-"id Pieoei:- 

Chusri Chee o+' St. Ca+herines.. Orftsr-io.. ha=: i.Mri-t-ten the 
Trarisacfcor with 3. tei.M items of interest ^ 

1. When a Mariai:! le is a^si-sned the '...'a. lue zero uiith " Fl = 
" .. it oari be substituted with " H = . ". The deciffia. I point 
in this case is e'-iui'-.'a. lent to zero and is 696 microseconds 
taster- thar! zero. This does not meari that " 100£i " cari be 
replaced by " 1... " since the latter is interpreted as "1" 
to 1 loi.Med by a. decima. 1 point at "id ti.MO zeros. 

2. "LIST 0" lists the whole ProiiraJTi instead of just 
statement 0. 

3. " (shitt > RETURN" a.cts only as; a. simple CRLF instead ot 
entering it into EhSIC to be interpreted. 

4. Statements such a^: " 2*--3 " and " 2/-3 " Bre possible 
on the PET i.i.ihereas other computers reciuire " 2*<-3> " arid " 
2.-'<-3;5 ". In tact., you can have up to 14 "-" sians and ariy 
number ot " + " preceedin-ii a. numeric. finy more than 14 " — " 
will result in -sn ?OUT OF MEMORV ERROR ■B:£- the stack used by 
BhSIC is overt lowed. 



When tryin-3 ? "V 



S".. h'ET replies with -1 uihioh is 



correct. Hoi.u try., fl-f = "V" ? fit- < "VES" and PET returns -a 

El M.'hich is luroriii. It this is entered -ss- a. pro-2'r.3/ii -as 

to 1 loi.MS '■ 



18 fi* = "V" 



H* < "VES" 



....arid RUN.. PET replies with -1, So i.uhy does it work in 
proyrajii riiode but not ini mediate mode? 



R n s w e r ari y o n e V 




'Billy. As Soon As You Finish Your 
Homework Could You Help Mommy 
And Me Balance the Checkbook?' 




'Do You Have Any "Sorry Your Pro- 
gram Bombed" Cards?' 



Memory map; Original ROM to Upgrade ROM Jim Butterfield 

To identify a function of PET's original ROM, and/or convert it 
to the equivalent upgrade ROM location, use this table. 

All addresses are given in hexadecimal. 

ADDRS 0/8 1/9 2/A 3/B U/C 5/D 6/S 7/F 
0000: 0000 0001 0002 OOOE ****■»» ** 
0008: 0011 012 0200 0201 0202 0203 020h 020$ 
S^^r0206 0207 020B 0209 020A 020B 020C 020U 
018: 020E 020F 0210 0211 0212 0213 0211^ 021$ 
0020: 0216 0217 0218 0219 02U 021B 0210 021D 
0028; 021E 021F 0220 0221 0222 0223 0?2lt 022$ 
0030: 0226 0227 0228 0229 022A 022B 022C 022D 
0038: 022S 022F 0230 0231 0232 0233 023U 023$ 
OOUO; 0236 0237 0238 0239 023A 023B 023C 023D 
OOliB: 023E 023F 02h0 02U1 02h2 Q2\x3 2UU 02lt$ 
00$0: 02U6 02U7 02U8 02ii9 02U 02UB 02aC 02bD 
00$8: 02US 02aF 0003 OOOU 000$ 0006 0007 0008 
0060: 0009 OOOA OOOB OOOC OOOD 0013 OOlU 001$ 
0068; 0016 0017 0016 0019 OOIA OOIB OOIC 003J 
0070: OOIE OOIF 0020 0021 0022 0023 002U 002$ 
0078: 0026 0027 0028 0029 002A 002B 002C 002D 
0080: 002E 002F 0030 OO3I 0032 0033 003li 003$ 
0088; 0036 0037 0036 0039 OO3A 003B 003c OO3D 
0090: 003E 003F OOliO OOhl 00U2 00U3 OOUU 00ii$ 
0098; 00U6 00li7 00U6 00U9 OOliA OOI4B OOUC OOUD 

OQAO: OOiiE OOUF 00$0 00$1 00$2 00$3 00$U 00$$ 

00A8; 00$6 00$7 00$8 00$9 00$A 00$B 00$C 00$D 

OOBO; 00$E 00$F OO6O OO6I 0062 0063 0061i 006$ 

00B8; 0066 0067 0068 0069 OO6A 006B OO6G 006D 

OOGO: 006E OO6F 0070 0071 0072 0073 007U 007$ / 

00C8; 0076 0077 0078 0079 007A 007B 007C 007D 

OODO; 007E 007F OO8O OO8I 0082 OO83 008U 008$ 
00D8: 0086 0087 OO88 0089 OO8A OO8B OO8C »» 
OOEO: OOCU 00C$ 0006 00C7 00C8 0009 OOCA OOOB 
00E8: OOCC OOBU OOCD OOCS OOCF OODO OODl 00D2 
OOFO: 00D3 OODU 001)$ 00D6 00D7 00D8 00D9 OOFB 
00F8: OOFC OODA OODB OODO OODD OODE OODF *»■ 
0200: 008D OO8S OO8F 0097 0098 0099 009A 00F9 
0208; OOFA 009B 009C 009D 0096 009E 009F 026F 
0210: 0270 0271 0272 0273 027U 027$ 0276 0277 
0218: 0278 0090 0091 0092 0093 OOAO OOAl g» 
0220: 00A3 OQAb 00A$ 00A6 00A7 0OA8 00A9 OOAA 
0228: OOAB OOEO OOEl 00S2 OaS3 OOEU 00E$ 00E6 
02 30: 00E7 00E8 00E9 OOEA OOEB OOEC OOED OOEE 
0238: OQEF OOFO OOFl 00F2 00F3 OOFU 00P$ 00F6 

02U0: 00F7 00F8 02$1 02$2 02$3 .» etc. 

0260: OOAC OQAD OOAE OOAF OOBO OOBl 00B2 ** 
0268: 00B$ ^Hf »» »» 00B7 »» »» 00B9 

0270 : OOBA OOBB OOBC OQBD OQBE OOBF OOCO OOCl 



f'l e ri'i o r ■ y E x i--- a j'l s i o fi. C o s t i- ti . w ^.i 



J + e-S 



'HH'dis'CJ "tc 



Euer been s'tuc'k -fof- those reuj e:<'tr-a. Dyxes ni- 
corrii-:' lete a. K-roiiraj!' ? SK users p'robai:' ly knoi.i.i the -feel in -a. 
Well noai "there is a. coriso la.tion. If your f>ro-yf'ajn does not- 
use "tai-'e -file a.'jcess ujith the second oaji?set"fce.. then the RflN 
memory devcited to trie Znci oassett:e butter- oari be added to the 
I'l ; e ffi o r ■ y u s e d 'fof' £■ H b I L- . 

The f.>r ooedure 13: sofiie'jjha.t ditter€-nt tor- old ROMs arid new 
hijt trie ooncer-'t is tht- sa.ff.'~» Eoer-y byte o-*-^ RriM in PE f is 
<•:■ i- -I y s 1 c a 11 y -an d e I e o t )•"■ c r- i o a 1 I y 1 d e n 1 1 o a. 1 . PET s ?:■ 1 i t s u p.:- R H fi 
i j s' J. r ■; y K' o i n t e r'- .-: , 5 1 ri o e t h e s e r-' o i '■'i t e r- s -^r- e s t o r- e d i n R F( M t h e y 
oai-1 there-rore &e onan-yed. Let' s take a Iciok at these 
?-'0 i rrters i i-">d i ^-^ i cjua. I i y • 



Id ROM 



In PETs With old ROMs.' th-S're Br-€! basically 4 K'O inters 
used to oi-'ea.te parti tior'is i.yithin RhM. Pointers use tuio bytes 
a/ id sre stor-ed low order- tir-st.. hi-sh or-de*-"- 5"eoorid. 

i. Start ot EhSIC P-oir-ter 

The s"tar-t o-*- BRSIC ?:'0 inter- does exactly '.uhat you 
iT, 1 1-- !• 'i t t: I- '! i n i- ■: i '^- I.M o u 1 d d o .. r-' o i f't S't t i" 'i e s t Br- 1 o t" E fl S I C . 
it IS stored ir, locations -t-Ei07R arid tSBFB or- decimal 122 
and 123 arid on i':'Ou.iei-'--ui'-' it is set to :f£i401 or- deoiina. 1 
iS25. FET calls o---! tnis pointer- to dete!-"-ri-iine iMher-e to 
b e 'if i ri e x €■ o u 1 1 n -y a. K LJ ^ -i . 



Ind ot EFfSIC / Start ot ' 
:r' "t^ a t e 5 1:' n "t- s 



=!.r' J ab Ie->" F'o i r"i ter- 
such Bs H-~0 arid K?-^=10 Br-B 



riS i>H:r. ii 

g.;.. ;i3Qi_4-t:i=.r.-i ,, A '..'ar- i a.b le table is set ut-- iivirriedia.te ly 

to 1 low i n-y th-e BSSIC' psr-o-i-fr-aiT!. The oar- i a.b les arid their- 
corre-spond i rrii o a lues Br-i? stored in the tah le and arid 
consufiie 7' bytt'S each. J-Mrien oat led.' in sta.teiTients such 
BS IF H~0 THEN... .. PET jumPS to tf'ie location a.coor-dirrs 
to tf'ie '...'a.lue ot triis Pointer- and he-siris sear-oJ-'iin-i-i. Nhen 
an exact rnatoh tjetmeen trie Mar - lab le m -the- cur-r-ent 
sta.teruent and ont^ stored in the table is rriade.' PET 
t'etches the cor-r esr'cndirrs '■.•■alue arid nvo'-.-'es it tci a. work 
=ij---ea. arid .B Pi Sic continu€-s» 



This ."■::' oints'-"- IS stored at t-£vZ^7"C: and :t^00?li or- decimal 
124 and 125 and on rcuiei-"-— ur-' is set to #9404 or- 1828 
dec I Mia. 1« It's '■.'-B'.Iwb.- howeoer-.. uh 11 constantly be 

c-harryin-y a..-s EP'SIC code is insef'ted or deleted. This is 
why the v.alues ot .all '...'ar-i a.b le-s becc'tTie zer-o y.'hen .a 
Ki-'-osir-aru o-harri-ie is made.' it code is mser-ted.- f^'r-o-yr-aji'i 
text is M.irit'ten ooer- the tirst oa.i-'-iaJ:> le-s m the taJ::>le. 
I -f code is de le"!^ed .' the b'=ite-s used by the '•.■■ar-ialj le tab> le 
■are untouched but the end o-i"' EhSIC is c^harryed arid this 
pointer- is no Ic'rviaer- set to th-a start o-t oar-iaij les. 



t.rici O"- Vaj-' i Bij iss 



h Zfj 



fir r-B.Js F'o i f"s+-er 



Stored at i-'dQTE-TF or deoirrtal 126-12?.' this r:-oiri-ter 
ii-Ciri-v;-;- fnijcf'! the sBifie- '.ua.y ^s- the- f:'r-e'-'ious one i.Mher-i -BrrB.'zf 
.yarisjoles are oalled^ It is also set to *0404 on 

?.: n f.i i e - •■ - >..-i !■ :• . !~' =■ D I M s t: at €■ fi i e !• '! t s ar e e x e c u t e d .• aj-'- r a.y s ar- e 
■=:^t uK' s taj-' t ^.n-i! at the location determined by this 
;oo inter. This '.Mill be the -*^-Lrst byte to 1 louu rrs the la=:t 
t-t^re oi- tr'.ie '.'ariaijle ta.ble« But M.iha.t haj-^'r^ens uihen a. 
..■a. lue is assi-nred to a nei.u '...'ar i ai:> le 7' It rio -Br-rays 
€'>:, ist.. the ne-.u variable and its v'alue .sre simK-ly stored 
1 ,. -h-i.-.e ? bytes to 1 loaiinii t'r-e location ?:oi.nted -at by the 
End o-^- V-^r i-^iij les poirtei" inclusive. The ic-ointer is then 
L.iK'dated to aAMa.it the ne-rt: neui vari-Hjble, 



:iM.iev'e'" .' if su-'rays are r'-"6sent.- .a sp-ace must be 
rd suof' tr!-9.t trie rieu' afvcry can be inserted ajs f^'-ar-t 

This tii-^-Bs'is tl-"!.at the .sr-r-ays must 
se to I Icnyin^i ■ 



; yc a ■ 7' *' I H~t:' '■.' < i 

Note tne tirive dx ■''"'" a re no e 

' -i O U ' t :J f "' e ■ x) i M H '.. "-I- .' c- o ■ ~! .-' 

and- vTl E=5 ■ 7TI 

Notice hoiu fiiuch lonaar it t.akes 



'-■i;'ys^ .ehse.ad i^i^^y .= pjy ^.-eSu 

;t byte ot the -arrays which tu'iri-ss us to. . . 



nt tr.=<riSter i n-y e'.ac:h byte ot the 
0+" course PET must st.3rt tuith the 



C:. .n U O i" r^t't" a.y i 



:.Hirt o-*' Hvai l.^b le Si-:' .ace Pointer 



i.';nen F'ET .must C'l-^'en ur .a sf'-aoe tor a ne'.u m-eiJ''' i .^bi le by 
iV!0'...'i na t-Pie afr-eys u^',' it calLs on this f:'0 inter to 
,;jetermine Uinere to st.ai-"t t.i-"'.=<rister-in-5i bytes. PET 

continues this byte by byte t.f-.3r!Ster until thre byte 
rein ted -at by the ^^t.srt c:-<-' ■arr.ays f^'Ci inter is -also moved. 
Tl^'ie rieu.i entry is tF'-en inserted. . . rroc^ess c^om^'lete. 



Ti-'ie-- Elr^d c-''- Rrr-ays f:oi i-rter lies at $GiG!3£i— 81 or 
daoim.al 123-129 a/"id also cont-ains $8484 .atter pou.ier— up. 



h€;'=.M h!Uri 



I 'i real ROM FE'Ts th-ere .Brs- -also b.5i.s i o.a 1 ly 4 Pointe-rs used 
to sectiOf! ott Rn.r1 .and .Bre used the s.^/ne ai.ay 3^- old ROM F'ETs. 
H o 1 e '...'€■■ r ■■ .. t in tS' y a-" e s t o r '■ e d i n d 1 1 1 e r e n t p 1 -ac e s . 



r o 1 !" '.' *.. e r ' 



Decimal Loca.ti 



Old ROM New ROM 



122-123 40-41 

124-125 42-43 

i:.nd ot ''...'.er 1 -eb' les .' 3t.9rt ot flrr-ays 126— 12'7 44—4-5 

End o-*- F-irrays o^" Sta/'t ot fivai l-=ibi le Sr-ace ik.'t!— 123 46—47 



St.i;.rt ot i:.hbj. U 

Erid 0-+- EriSiC ,-' St -art o-(- 'v'.sri.^b les 

-' 3t.9rt 



M o ':■' i n -3 P o i ft t <=• r s 

Hou' "tPiat M.ie knotM uihere these pointers are arid what they 
do., some ex^'erirnentins oan be done- Recall that on Poaier-UP- 
the Start ot EflSIC Pointer is set to hex 0481 or decimal 
1025. HoweMer.. location 1824 is also imP'ortarit. It h-as the 
i.-'alue zero and re^'resents a "dummy end-o-f=- line" . 

The 2nd cajssette butter starts at hex 033fl or decimal 
S26, I-*- this is to be included as- r--Brt of EFlSIC memory 
space., the St. art ot BASIC Pointer must be moved DOWN. Since 

location 826 will have to ser'-'e -as the dummy end-o-f-line 
ch-^r-acter .. the neai start o+ EflSIC null be S27 or *033B. The 

procedure is as- to I lou's ' 

POKE S26 .• Dummy end-ot-line 

priKE 122 .. 55 • loM.i order byte ot pointer = t-3B ':;3*16+1 i > 

POKE 123 .. 3 hi -ah oi-'de^- byte = $@'3 

<Nei.M ROM users will substitute ti-ie other POKE loc-ations. > 

That takes c.5re ot the St-^rt o+' ERSIC Pointer but all 
those othei- pointers are still up where tl-'iey used to be i.uhen 
BhSIC st-iirted at #0461. They must -also be moved dotun. We 

could use POKE to accomplish this howeuer a HEW comm-arid udll 
do them all at once. Thereto.--e e-.ecute -a HEW -srid then print 
FRE'-;0>. Vou should be returned 7362 bytes -^r-Be.- ari incre-a.se 
ot IS'5 bytes I This may not seem like much but when those few 
extra bytes -are needed to -add those tini shins touches- it 
could come in ver'j haridy. 

Now that the BASIC memory space has been incre-a.sed does 
not me-3r! th.a,t youf- pro-graj-iv null .automatically till up this 
space. Besides.. th€- NE'vl commarid remo'-.-'es your prosr-a/fi 
=ij- ■( y M.I -ii.y s . n e w a y to e 1 1 e c 1 1 v e 1 y use t h i s m o d i t i c at i o n is t h e 
to I low ins '■ 

i, Poi.i.ier-up -Bt'id LOAD your proarajfi. 

2. Usin-3 UHLIST (described in Traris-a.ctor #2.. Vol. 2>.. record 
t h e p r o -y r ■ a/ri . 

3. Increas:e memory us ins the steps outlined -aJc'0'-.-'e.. .arid... 

4. Us ins the M-er^ie procedure, also described in Tr-aj-"is-actor 
#2. briny the prosfr-ain back in by essentially mer'3in*f 
it i.M i t h e m p t y s p ac e • 



Now the tirst 195 bytes ot your pro-sra/ri will be resident, 
iri i.Mh-at used to be the second cassette butter. Remember., you 
no lon-ser h-aue -a second o-9ssette butter unti I you either 
i--.g.5et the machine or re— -ad-just the pointers so don't try to 
use it or your pro-sr-EiJTi M."ill be clobbered! 

Sooner or later- you lui 1 1 need to SAVE the pro-sr-a/fi. 
However., this cari no longer be done in the conventional 
m-ariner. Take -a look at the method used by Bill Seller on the 
second pa.ye ot Transactor #3. Execute lines 180 through 220 
dirt-'ctly on the screen exactly as sh.own. This- is a riioditied 
SAVE. The S't'363153 accesses the t-3pe write routines in ROM. 



Houj tha+. a recordinsi h-BS- been rn-ade "there is one last- 
m'-oblem. i-ihen the K-rosrajii is LORDed back into the PET.- the 
Start ot ERSIC Pointer is not automatically set. It stays at 
0400 but our r-ro-sra/ii starts at 033fl. POKE 122.. 53 arid POKE 
123.. 3 will ti.x this ur--. 

R Short Note on TBJf--es 

When -a i--t'Oift'-Bi(i is recorded on t-aj':>e,' the start arid end 
addresses ot that P'ro^ira/n ai-"e -also recorded as P-art ot the 
t.af:-e header. Therefore., when the p-ro^fr-a/ii is LORDed.. PET 
txrst looks -at the st-^rt address arid be*iins traristerins bytes 
trom ■i:-Bt--e into RRM. The -first byte is tr.3risfered to the 
location specified by the st-art -address. Incre-ssinsi your 

memory usin-i.i fhis method does HOT meari th-at your proar-a/ns 
M.iill LORD to tf'iis extra s^-ace. Hoiuever .. they cari be modified 
to do so. The. infocriia.t ion needed is in the -ai-'-tiole by Jim 
Butterfield on the first p-a=ie of the first Tr.arisa.ctor in Vol. 




Cassette file END markers Jim Butterlleld, Toronto^ 

£nd-of-tape blocks may be written on cassette tape. 

If the coiif)uter is searching for a program or file and finds 

this block, it will stop and report 7FIIE NOT FOUND. 

This is useful since it saves hayii^ to search throu^ yards 
of empty tape. 

Here 's how to write such an END msorker. When you 're saving the 
last program on a tape, use SAVE "PR0(aiAM-NAMB",l,2. The END block 
will be written behind the program. If you are writing files, 
open the last file with OPEN 1,1,2,"7IIE-NM!E''. The END block 
will be written after the file is closed. In either case, it 's 
the value 2 which triggers writing of the END marker. 

If yoi; need to write an END marker on t»>e without having a 
program or file to write, you can do it with one of the following 
statements : 

Original ROM: POKE 2Ul,l : POKE 63U,5 : SIS 636.73 
Upgrade ROM: POKE 212,1 : POKE 63h,S t SIS 63622 

The first POKE statement specifies cassette drive #1. Tou nay 
change it for cassette #2 if you wiah. 



fl+.-tent i on Mu l+- i -Pe-r- 1 Phera I Users- 

1+ h3^ been -Pound +-h3."fc u.ihen fnore "than one per- i^-h era. I is 
connected to the IEEE-4SS buss., a slight problem rciay occur 
should one de'-.-'ice be ON arid the other OFF. Take tor exaxiip le 
the t o 1 1 o M.I i n a s e -hu e n c e o t e '•.' e n t s ■ 

PET ON 

Printer OFF 
Bisk OFF 

Tyf:-e- OPEN 1 .. 6 ,. 4 ■ " O BliKFILE .. S .. W " 

PET resKT'onds; PDEVICE NOT PRESENT ERROR 

This is ot course u'hat you luou Id exP'ect. Nou' poiuer up the 
Printer., lea'-' ins the disk unit OFF. 

Type- OPEN 1 ,. S .. 4 .. " eiHSKFILE .. S .. W " 

PET respof-ids^ REPiDV. 

But the disk is OFF or essentially "HOT PRESENT". There-tore- 

PRINT#1.. "FILE DflTfl" 

...Luill result in lost d-at-a. 

There is.- houie'-.'er .. a test that CBt'i be ni-ade to proteict 
•ai-iainst I'ost into. The status uiord.. ST.. is set to -123 
i.M h e n e '■.■' e r t h e aJC' o '•.' e situ at i o n o c c u r ■ s . T h e r e t o r e the toll o i.m i n =.-• 
test C'ou I'd be included immediately atter the OPEN statement- 

IF ST -C THEN PRINT "DEVICE HOT PRESENT" 

Don't be .al.E>rmed since -Briy pro-yr.sjfis us ins disk tile 
access -af'-e usu-a 1 ly loaded trom the disk.. the disk wi 11 be 
turned ON .ariyi.M-ays and the •3bo'...'e situ-3.tion luill prob-3i:< ly ne'...'er 
be en o o u n t e r 'd . 



Frens VanEiuinen 
Toronto 
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?LOAD ERROR 



This note deals with proEirsni load errors on the 8K PET 
(ReieBse 1 >» snd how to recover from them* 

Within two deys sfter i^ettinig my PET (Nov78>i' I discovered the 

Bierits of bscK-uF copies of FTO^rams snd dsts files* 

All I did W35 press PLAY snd RECORD when the messsEie seici to 

press PLAY! It wbs only some twenty seconds* but it wes 

sufficient to wipe out the file header snd msKe the file 

inaccessible* 

Ever since I've msde sure to Keep multiple copies i- on the ssme 
tspe for prosrsms under deveiopnientf on s dedicated bacK-up 
tape for programs thst are more or less ststic* 

So also the Journal prosrsro that I was developing bscK in July* 
The only thin^ wasy I was also working on another program!' which 
that I sccidentiy saved on the wrong tape* Scratch Journal 
version 0*6. 

No real harm donee since I still had version OtSf risiht? WronjS! 
It Just so happened that Sood old 0*5 had a losd error* 
I tried Just about every thinBc demssnetise & clean heads? 
both tape drives on my PET* LOAD vs STOP/shift* freeze cassette? 
rewind tape evenly? loosen screws in cassette housing and play on 
several other PETs* About the only thinsi J did not play with 
wss hesd slii^nment (since the tape had been written with this 
aili^nroent? it ousiht to be optimal for readind>* 

Ail to no avail* A load error I Sot? and load errors I Kept 
on getting* 

Yet I knew the data wss there! There were some 3500 chsrscters 
on that tape? most of which loaded correctly? but could not 
LIST? RUN or SAVE* 

Since I still needed the Journal prosram? my choice was simplet 

sslvsge or re~develop and re-enter from memory* 

So? with sn ingenuity born of laziness (that being one 

of the prime Qualifications for ell Fpogrammers )? I salvaged! 

From Jim Bu tterf ield' s memory map (sec The Transactor 9 vol 1 
-or The Best of Transactor vol 1? pf 149-155 - and vol 2 t3 ) 
and my own disassembled listing of ROH? I had since scouired 
essential information on pointer fields end routines* 

First let me introduce the cast of cheractersi 

*the program? it starts et loc 1024 

* the file header? st loc 634 for tape 1? loc 826 for tape 2 
♦the losd start point in the file header et offset +1 

* the losd end point in the header at offset -f3 
♦the start of BASIC pointer et loc 122 

* the end of BASIC/start of variables pointer et loc 124 
♦the end of variables pointer at 126 

* the start of available space pointer at loc 128 

♦the Next Instruction Pointer (NIP) that precedes ever 
BASIC program instruction 



^' 



V 



♦ the BASIC Line Number ( BLH ) Ihsi \s peri of every Biaiemertt 
♦the zero byte thsl identifies the end of each BASIC 

ststement 

♦ the End Of ProsSrem ( EOP ) msr-Kery which is a duffiiiiy NIP of 

which st least the second byte contains zero. 

After 3 normal load PET updates the end of BASIC pointes ? the 

end of variables and the start of available space pointer':-- 

based on the end of load address from the file header* 

Not so on 3 load error? the end of BASIC/start of vBrisbles 

pointer remains at 1024 (the start of BASIC pointer lo be 

ex set )♦ 

However » if variables are used they will be stored star tins 

iocstion 1024i' i^e^ smacK on top of the prosram. 

The following code will fix that < assuminsi LOAD from tape -13 >J 

?Pe( 637 )JPe( 638 ) - which results in the values beinn printed 

( r e m e m b e r 7 n o v a r i a b 1 e s rn a y b e ts vi e d y e t 
237 17 example ( 237i256*17-4589 ) 

Po124»237:Po125»17- set end of BASIC/start of veriabieB 
Pol26»237JPol27»17- end of variables 
Pol28iF237:Pol29f 17- start of available space* 

Whew! Now we can use vsriablesy since they will now be stored 
starting at 4589^ 

Next step is to rebuild the NIP pointer chain? where the NIP 

preceding every BASIC statement points to the NIP before the 

next statement* until we .^et to the dummy NIP that marKs 

end of program ♦ 

SYS 50224 is an operating system routine that does Just that. 

However* it does that based on zero bytes. It assumes that ^'\}er\i 

zero byte it encounters represents either the end of a 

statement or the end of the entire prosram* Thus if 

the load error introduces spurious zeroes? they may throvi 

SYS 50224 for s loop* and the routine would store NIPs on top 

of valid dst3+ If it does worK* however » it's the by far eas;ier 

methods If it does not work Just reset the system and tr-y the 

other possible approach. 

The alternative is to write a one-line immediate routine that 

will follow the existing chain as far as PossibJe* fix and 

continue^ 

The following routine will print a list of NIPs in ascendins 

order* with line numbers (BLN)* also in ascendins^; order . 

Any irregularity in either list indicates a load error. 

1=1025 initialize pointer to first NIP 

FoK=lT0900:.J=Pe< I )+256*Pe< lil );B=Pe( Ii2 ){256$Pe< 11-3 )^ 
?I*.JfBJI=.J:Ne 

This results in s list such esJ 



1025 


1052 


10 


1052 


1066 


20 


1066 


1099 


21 


1099 


1120 


50 


1120 


1156 


60 



screen Priri"t Rou+ine 

The +0 1 louans is a niaohine lari=<ua*te subroutirie tha-fc luill 

copy "the con "tents o-t' "the screen on "to 2022:-'23 pt- i n"ters . I"t 

resides in "the second oa^sse't'te bu-f-fen a/'id could be 

LncorK'Or3."ted '..-'•sr-'::^ nea."t ly in"to any EftSIC f:'ro3r.arii luhere a. har-d 
coc:'^ 0+ "t(-"ie screen riii=jh"t be re-Huired. 



SCREEN 
CHLL W 



033fl 

S33H 

033H 

033R 

033fl 

033H 

033H 

033H 

033H 

033fl 

033H 

033Fi 

033H 

033fl 

033c 

033E 

0340 

0342 

8344 

0346 

0348 

034B 

034E 

0358 

0352 

0354 

0356 

0359 

035E 

035E 

0360 

0362 

0364 

0367 

0369 

036B 

036II 

036E 

0370 

0372 

0374 

0376 

037S 

037fl 

037C 

037F 

0380 

0■~•C•'^^ 
OOii. 

0384 
03S6 



FF'IHT 
ITH 



fly 80 
85 20 
fly 00 
IF 
04 



POIHT 

RFLhG 

COUNT 

CR 

DEVICE 

cnn 

PRINT 

SLISTN 

flTNOFF 

BUSOFF 

SCREEN 

CflSE 

SCPRT 



r.cr 
fl9 



C'-J 



E0 
D4 
20 Bfl 
20 211 
fl9 19 
85 22 
ft9 0D 
85 21 
20 B2 
fl9 11 
flE 4C 
E0 0C 
D0 02 
fl9 91 
20 D2 

fl0 00 

Bl IF 
29 7F 
flfl 
Bl 
45 

1 0B 

74 Bl IF 

85 21 



49 92 
20 D2 
8fi 

09 20 
B0 04 
09 40 

110 0E 



F0 
Fl 



LINE 



FF 



E8 



FF LOWER 
MORE 



IF 
21 



FF 



SAME 



LDfl 

STfl 

LDfl 

STfl 

LDfl 

STfl 

STfl 

JSR 

JSR 

LDfl 

STfl 

LDfl 

STfl 

JSR 

LDfl 

LD>^ 

CPX 

BNE 

LDfl 

JSR 

LDV 

LDfl 

AND 

TflX 

LDfl 

EOR 

BPL 

LDfl 

STfl 

AND 

EOR 

JSR 

TXfl 

CMP 

ECS 

ORfl 

BNE 



ROUTINE 
SVS 826 
$033fl 
$1F 
$21 
$22 
$0D 
$D4 
$E0 
$FFD2 
$F0Bfl 
$F12D 
$FFCC 

$3000 

$ES4C 

#>SCREEN 

POINT+1 

#<SCREEN 

POINT 

#4 

CMD 

DEVICE 

SLISTN 

flTHOFF 

#25 

COUNT 

#CR 

RFLflG 

PRINT 

#$11 

CflSE 

#12 

LOWER 

#$91 

PRINT 

#0 

< POINT > 

#$7F 



V 



<POINT>.. 

RFLflG 

SAME 

<POINT>. 

RFLflG 

#$S0 

#$92 
PRINT 

#$20 
NOTflLF 
#$4£1 
SEND 



V 



.: LISTEN TO IEEE 



GRAPHICS OR LC 



SET POINTER TO 
;STflRT OF SCREEN 



.;OPEN PRINTER 
;25 LINES 

.: START NEW LINE 
.: RVS-OFF 

.: SHIFT FOR L/C 



.;SHIFT FOR GRAPHICS 



; SCREEN CHAR 

.: STRIP RVS 

.: STORE 

.: CHECK RVS 

.:SAME AS LAST CHRPRIH 



.:L0G new RVS STATUS 
; BUILD RVS ON/OFF 
; RECALL PRINT CHAR 



.: CHANGE ALPHA ZONE 
.: BRANCH ALWAVS 



03S8 C:3 40 HOTflLF 

033R 90 00 

03SC C9 60 

03SE B0 04 

0390 09 80 

0392 D0 02 

0-:94 49 r:0 6RRPH 

0396 20 112 FF SEND 

0399 C8 

039fl C0 28 

039C 90 CE 

039E h5 IF 

fi3H0 €3 27 

03H2 85 IF 

03fl4 90 02 

03h6 E6 20 

03R8 C6 22 

03 HH Ii0 h6 

03hC R9 011 

03HE 20 Ii2 FF 

03 El 4C CC FF 



CMP 


#$40 


ECC 


SEND 


CMP 


#$60 


ECS 


GRAPH 


ORR 


#$80 


ENE 


SEND 


EOR 


#$C0 


JSR 


PRINT 


INV 




CPV 


#40 


ECC 


MORE 


LDR 


POINT 


fine 


#39 


STR 


POINT 


ECC 


*+4 


INC 


POINT+1 


DEC 


COUNT 


ENE 


LINE 


LDR 


#CR 


JSR 


PRINT 


Jt'lP 


$FFCC 



; ERRNCH RLWRVS 
; PR I NT CHRP 

.;LINE FINISHEDPRINT 
;N0. DO IT RGfllN 

;VES.. MOVE SCREEN POINTER 
.:T0 NEXT LINE 



ONE LESS LINE 
ERCK FOR RNOTHER 



; CLEAR EUS & QUIT 



90 REM BASIC LOADER FOR SCREEN PRINT ROUTINE 

100 FOR J = 826 TO 947 

110 REFiD fl ■ POKE J .. H 

120 HEKT 

200 DflTR 169.. 1 2S .. 1 33 .. 32 .. 1 69 .• .. 1 33 ,. 3 1 

2 1 DflTfi 1 €9 .. 4 .. 1 33 .. 1 76 .. 1 33 .. 2 1 2 .- 32 .. 1 36 

220 DATA 240 .■ 32 .• 45 .. 24 1 .. 1 S'3 .. 25 .. 1 33 .. 34 

230 CRT A 1 69 .. 1 3 .. 1 33 .. 33 .. 32 .. 2 1 .. 255 .. 1 69 

240 DFlTA 1 7 .. 1 74 .. 76 .. 232 .. 224 .. 1 2 ,. 20S .. 2 

250 DFITfi 1 69 .. 1 45 .. 32 .. 2 1 .. 255 .. 1 60 ,. O .. 1 77 

260 DRTA 3 1 .. 4 1 .. 1 27 .. 1 7© .. 1 77 .. 3 1 .. S9 .. 33 .. 1 6 

270 DATA 1 1 .. 1 77 .- 3 1 .. 1 33 .. 33 .. 4 1 .. 1 23 .. 73 

280 DATA 146.. 32.. 210.. 255.. 133.. 201.. 32 

290 DRTA 1 76 .. 4 .. 9 .. 64 .. 208 ..14.. 26 1 .. 64 .. 1 44 

300 DATA 1 .. 20 1 .- 9S .. 1 76 .. 4 .. 9 .. 1 23 .. 208 .. 2 

3 1 D ATR 73 .. 1 92 .- 32 .. 2 1 .. 255 .. 2 00 .. 1 92 .. 40 

320 DATA 144.. 203 .. 1 65 .. 3 1 .- 1 05 .. 39 .. 1 33 .. 3 1 

330 DATA 1 44 .. 2 .. 230 .. 32 .. 1 98 .. 34 .. 20;3 .. 1 66 

340 DATA 169.. 1 3 .. 32 .. 2 1 .. 255 .. 76 .. 204 .. 255 



1156 585 70 
585 126652 12445 
BRK 

Clearly 1156»li57 do not conloin 3 veiid NIP* 

In this specific instance it appears that 1156*1157 are 

indeed the NIP (since the BLN looks to be correct)? but 

the NIP has been clobbered due to the load error* 

Freouentiy load errors are a result of timins^ errors* 

This is where the reed routine cannot handle the variations 

in taF-e speed that it perceives* 

The result is commonly that the vesd routine reeds more bits 

than were actually written to the tape* Conversely the 

routine may ectuelly read fewer. 

In my case the errors occasionally were wronEi characters r 
or in some instances one or more characters missinri or 
extra* Yet subseouent characters would still by and larse 
be correct* In other words » it would appear that the 
read routine can recosnise and synchronize with byte 
boundaries es recorded on tape. 

The important thins here is that frequently a NIP address 
would be out by plus or minus one or two bytes» but so 
would the next one and the next. 

To view whet the internal representation of the prosram 
looKs liKef an immediate routine such as the followins 
Bay be used* 

1=1155 -loc of lest valid(?) NIP? minus 1 to checK 
for presence of precedinsS zero 

FoK=IT0I+60J?Pe<K)JINe - would result in 

132 4 70 145 137 32 49 48 48 44 50 48 .. 
NIP BLN ON GOTO 1 » 2 0.. 
<sorry» not the interpretation shown on the second line) 

An other approach is to print the location number as well 
as its content* That makes it much easier to see what is 
^oin^ on* 

FoK=IT0I+60:?'R'K'r'Pe(K)J:Ne 

'R' - Reverse video on 
'r' - Reverse video off 

This would show alternately a location address (in reverse 
video )» followed by it content! 

1055 1056 132 1057 4 1058 4 1072 

1073 156 1074 4 **♦ 

This facilitates checking the NIP actual location e-^ainst 
the expected one (as contained in the preceding NIP). 

A further variation on this to include two cursor- left 
characters* 



FoK=IT0I-{-60 1 ?' R' K' rci ' Pe( K )•' cl •' n tie 

ci - a sinsiG cursor— left, charscter 

This Sets rid of the cursor-riH^hi the PET inserts F^fier 
ail nuntbers* Not only does it compress the lisijnrsf :i l 
also allows reuse of the ststement (such as efier a POKF» 
or for a different area) without occasional diaiis from 
the previous data showing throush. 

If an individual NIP is wrons? the most expedient soJuiion 

is to POKE in a new value. 

Iff however » several subseouent NIPs are a.) J. out by 

the same aaountr aovins over the rest of the prosram 

nay be indicated* 

Visual inspection will have to indicate which bytes io 

suppress* or where to open it up. 

Remember the aain concern risht now is to Eiei the prosram 

in such shape that it can be LISTed and updated norma.1 Ivu 

On compression » as in the following routine? bytes ere 
copied into lower numbered locations. Thus if location m? 
is stored in 1111, 1113 in 1112, 1114 in 1113* etc.? 
location 1112 has already been used by the time 1113 
is stored into it, and thus may be safely clobbered 
For example J 

FoI = llllT04589t.J=Pe(I+2):PoIf.J{Ne 

The +2 in the PEEK command causes everything to be 
moved over ('to the left') b« two bytes. 

Note that merely chansina the +2 to -2 will not move everythins 
two positions to the ri<ght. 

Instead the leftmost two characters will be propasated throuBh 
the entire section beins moved. In the above example (with the 
+2 changed to -2) byte llll would be picked up firsts^ and stored 
in 1113. Then 1112 would be stored in 1114. Next 1113 would be 
picKed UP to be stored in 1115. But 1113 contains the value 
from 1111 by now, and that is what would be deposited in 1115. 
Thus 1111 ends up in 1113, 1115, 1117, etc., with 111? endins 
UP in ail the inbetween locations. 

To handle such a shift right properly, the move has to start 
from the right, e.g.: 

FoI=4589T01111STEP-U.J=Pe(I-2>JPoI,.j:Ne 

That essentially sums up the totality of this techniRue for 

salvaging programs from load errors. 

I do, however, sincerely hope that you'll never have to use it. 



The IEBE-U88 Bus 

A parallel interface designed to exchange data with selected devices 
connected to the bus. 

Many devices may be connected at the same time, but only the one 
that has been selected will send or receive data. For exan^le, 
two printers and a disk unit could be connected to a bus; the Basic 
program would arrange to send to or receive ffom the various devices 
as desired. 

Selection works by means of a "calling" system. Before sending data, 
the computer first sends a selection character, which commands the 
appropriate device to "listen". If the device is connected, it will 
acknowledge the command. Now the data is sent; each byte is 
acknowledged by the receiving device. Finally, the device is 
disconnected by an "unlisten" command. To receive data, the 
con?)uter instructs the appropriate device to "talk". It then 
accepts data \mtil the device signals "end of data", a^ which time 
the computer sends an "untalk" command. 

Commands are distinguished from data by using a special line called 
ATN (attention). K the ATN signal is low (meaning true), the 
information being sent is a command: talk, untalk, listen, or unlisten. 
If the ATN signal is high (meaning false), the information being sent 
or received is data. In this system, only one direction is used: 
the computer sends ATN and the devices receive it. When ATN is low. 
all devices receive the connnands. to see if they are being selected. 
When ATN is high, only the selected device will accept data. 

Another line, called EOI (end or identify) is used to signal the 
last byte of data. It works in both directions: if the computer 
is sending, it signals EOI low (meaning true) with its last character; 
if the device is sending, it signals EOI low if it has no more data 
after the character it is sendii^. 

When a device sends to the coit^niter, it delivers each character only 
when invited by the con?)uter. Similarly, the sending conputer 
delivers characters only as fast as the device is ready for them. 
This flow is controlled by a "handshake" procedure. 

An exanple of selection: When Basic executes OPEN 3,U, the IEEE-U38 
bus s»t3 the ATN signal low and transmits hexadecimal 2U to the data 
lines^ instructing device #U to listen. If the device does not answer, 
Basic will return either DEVICE NOT PRESENT (ST-128 decimal) or 
WRITE TlhEOUT (ST-l). Subsequently, when the command PRIKr#3,"HELI/D" 
is given, the ATN signal is again set low and hex 2h transmitted 
to instruct #U to listen; then ATN is set high, and the characters 
H E L L and are sent, with EOI set low during the transmission 
of the character; finally, the ATN is set low and hex 3F is sent 
to cause the device to unlisten. Note that we haven't closed the 
file yet; but we have (temporarily) disconnected the device. 



Using CMP on the IESS-it68 Bus 

CMD does two things: 

— it opens the appropriate device to "listen"; 
— it will divert output, normally directed to the screen, 
to the ISEE-U88 bus. 

Both CMD activities are cancelled in any of three ways : 

—preferred: when the bus is addressed with a normal PRINT# command; 
—when any INPUT or GET is performed; 
— when a Basic error is encountered. 

It is best to avoid CMD within Basic programs, since any use of INPUT 
or GET will cancel it, and the programmer will have to arrange to 
repeat the CMD as necessary. Use PRINT# wherever possible. CMD is 
most useful in obtaining program listings. The preferred method: 

OPEN ii,b (identify the printer as device # U) 

CMD h (open the printer to listen & redirect outnut) 

LIST (do the listing) 

FRIKP#U (cancel the CMD functions) 

CLOSE h (close the file) 

Never close a file until you have first cancelled the CMD command. 

IEEE-U88 Handshake; a brief techn ical description 

The same handshake procedure is used for both command and data 
transmission. 

The talker uses the DAV (Data available) line to indicate that valid 
data has now been placed on the bus. The listener uses two lines: 
NRFD (Not ready for data) to indicate that it is not yet willing to 
receive data; and NDAC (Data not accepted) to indicate that it has not 
yet taken data from the bus. 

Transfer of data takes place in the following manner: 

1. The talker initially places DAV high (meaning false) to indicate 
that data is not being sent yet. The listener will have NDAC low 
(meaning true) to indicate that no data is being received. 

If the listener is still working on something (say, printing the 
previous character) aixi can't accept data yet, it will set ° 
NRFD to low (true), meaning it's not ready. 

2. The talker checks the NRFD and NDAC lines for both high (meaning false), 
If they are both high, something is wrong. If the computer is the 
talker, it will send DEVICE NOT PRESENT. 

3. The talker places its data on the bus, but doesn't signal DAV low 
for data available until it sees the listener 's NRFD is high, 
which signals that the listener is ready to receive data. 

The talker will wait forever - there is no timeout. 



li The data is ready, so the listener accepts and stores it. 
Then the listener sets NRFD low (true) and NDAC high (false) 
to acknowledge its receipt. The listener has a time limit 
on this activity: if it doesn't complete in 6U milliseconds, 
the talker will flag TIMEOUT ON WRITE. 

5. The talker responds to the acknowledgement by setting DAV high, 
meaning that the data is no longer offered, and then clearing 
the data bus. 

6. The listener detects the change in DAV, and realizes that its 
acknowledgement has been seen. It returns NDAC to low, completing 
the character exchange cycle. There is a time limit here: 

if the listener doesn't see DAV go high within 6U milliseconds, 
it will flag TIMEOUT ON READ. 



F r a n s V b n D u i n e n 
Toronto 
27SeF79 
Delete Rest of Instructions in Program 

One of the wore excitinSf albeit undocumented* instructions 

on the PET is the Tfelete Rest of Instructionsin Pro^rsm' 

or DRIP instruction ♦ 

If you haven't yet had occasion to use it» consider yourself 

lucKy* 

Under certain conditions the updating and replacing? of a BASIC 
program instruction results in the dissapearance of that and 
all subsequent instructions in the prossram. As this seems 
to happen only after extensive (and not as yet saved) pros^ram 
changes have been made? the result is a Jot of excitement. 

This note describes whet happens^ when y how to recover from i i ? 
and covers a technioue that seems to prevent it? but since I'm 
not sure how or wh-»- I can't be certain that the preventative 
measure always worKs* 

The content of the note applies to Release 1 of the PFT 8K system? 
the 'old ROM' . 

The only cause that I am certain about is an interupt of a 

proEiram occurs that is usinS the PRINT* to write to the IEEE bus. 

(Where my printer sits as device no 4.) 

Any subseQuent attempt to change the pros-ram freeuently 

results in a 'DRIP'* 

However » if I enter a 'CLR' command in between or cause an 

error r such as a RUN commend with an invalid operand? a TiRIP 

does not srise. 

The symptoms are as follows* BASIC does somehow not reco^ni-^e 
that the newly entered (updated) statement matches an existin?^ 
number. BASIC therefore treats the updated instruction as a 
new onef and moves over the rest of the program to make room 
to insert this 'new' instruction* 

However r BASIC makes oth€?r errors? that are even more severe* 
It inserts a zero in the hi^h-order (second) position of the 
Next Instruction Pointer (NIP) of the first occurrence of 
the updated instruction * thus sisnallinjS the end of proBram« 
The part of the program that has been moved to alJow for the 
insert of the 'new' instruction r has not had its pointers updated- 

Fortunately)- BASIC leaves the 'end of BASIC/start of varJabJe?.' 
pointer intect? so variables can be used* 

The solution of this problem is actually euite simple t 

. remove the spurious zero 
. rebuild the pointerchain ♦ 

I had visions of sophisticated program loSic to reconstruct 
pointers based on the minimum end maximum number of bytes 
per instruction » zero bytes? relationships between statement 
numbers end visual inspection. 

But once more* Jim Butterfield to the rescue! His list of 
routines identifies one called 'Corrects the chaining 



between BASIC lines efier inser t/deleie ' ! ! ! 

As it turns out? it is vervj sinrrlet if the addrpsr^ pointed 
by the current NlPf which itself is s NIP? contains a T'e'vo 
in the second hytef it is considered to he the end of Frnsram 
Ail other zeros startini^ at HIPf4 (to make allowance for the 
BASIC line number )are considered to represent, the end of an 
instruction ♦ 

Thus by rerfiovins the zero that eroneouslvj flaSs End Of Prosrarfif 
the pointer chain can be rebuilt bv^^ JnvoKin.s this rou trine 
< SYS 50224 )» 

Theoretically SYS 50224 could also be used to find the location 
on the End OF Prosram zero byte? as it leaves the address of 
the last NIP in locations 113? 114* 

Unfortunately J however y this is not a closed subroutine . Jt 
terminates by bran chins ( JHP ) into the PFT's main command 
process ins 10310? rather than retu'-nins- to the caller* 
Locations 113? 114 have been clobbered by the t-ime control 
is returned to the Keyboard 

What can be used is an immediate commandfsuch as* 

1 = 1025 JFoK=lT01000i.J=^^Pe< I )f256*Pe( IM ); ?I ? J i 1= JiNe 

which will print a list of NIPs? that is in ascendins 

order? upto and includins the address of the faulty NIP? e»B»* 



3301 



330 1 
3356 



^. .. . ,..,-jc- i. 

\J^J J. ».. V.' -J^f 

BRK <stop as soon as dip occurs) 



In this example locations 3356? 3357 contain the fault 
(These bytes contain 55 and respectively*) 
Now ail that is reeuired is the following* 



N .! s- * 



POKE 3357? 1 



The POKE instruction eradicates the vb}iip> zero? and the SYS 
rebuilds the pointer chain* 

In above example byte 3356 would originally have contained :i 3 
( 13*256t55-3333 )? however that is immaterial as the 
instruction that was there has been moved? whije the SYS 50224 
only msKes the distinction zero or non-zero* 



I hope this will allow others to deal with the DRIP instruction? 
however? the approac-h of freeuent savin?5 of prosram updates 
IS still preferable! 



Cross Referpnce 

I've recently completed s cross referpnce of bj J li nsii uci i nnv-. 
in the 8K PET system < Re 1 esse 1) that referpncF ;t ndi v:i dual 
RAM snd PIft/VIA locations* 



oi r;-i":sscmn.i ft 



The process was s c t ii a 1 1 y g in t e s i m r- 1 e . J u s e d a 
that scans for selected DFCodes and SFecifir operand Bdcsr-rrv- 
It only tooK some 280 hours of Frocessin=i to scan the v-v;; Icm 
the reauired few hundred times* 

Because of its si7:e I've only included the f?rst F-afie of the 
approximately 25 pese listing. 

The tape file for this cross-reference cnntaJns i-ome 27000 
characters and 3000 records* 



4-> ^ K't 



If anyone is i n t e r e s t e d > I'll si a d .1 y s e n d t Ii e m 

either the listing or the tape* 

I mustr however J insist on a copviins? postage and nandliinri 

charge. Photocopies cost me a oimp ( actua.1 iy 9 rpn tv- ) .?;iK(-' 

anybody elser and it takes over an hour to copvj the tay-r f;iie* 

If you are interested? send me a note at below addresn? arid 
include $4.50 for photo copies? $ 6,00 for the tape (inrjudjnri 
3 print/display prosram)? or $10,00 for both ropjes and i-app. 
For the photocopies specify decimal or hexadecimal addrcsres, 

Frans VenDuinen 

175 Westminster ave, 

Toronto? Ont* M6R 1N9 



CROSS REFERENCE LISTING PAGE 

LEGEND 

notation preceding Bddresa 

A - Accuniulstor 

H - Meriiory 

X - X-re^ister 



Y - Y-register 



F - St3tU5 floBB 

S - stBcK resaster 



notation followins address 
I - Indirect BdoressinB 
XI - Indexed indire ct ( on X re s ) 
lY - rndTrect indexed ( on Y res ) 
X - Indexed on X res 



Y - Indexed on 'i res 



D 



- Dynomicai-ly modified instruction noor 



~T=2 JumF~ln5tr to USR routine 

byte 0=$4C - JHP , ,_, ^ ^rjo^ vj 

A C493 X A C4C8 X A C4Fa X A L51^ X H H^B/ ,•^ r\ lU./J X.l. 



H E <>M ii ri bOiJb A E199 lY M MMB FrTD!i4TT^H FDf-F 

F FD6B lY H FE05 A FEOD lY M FFIl lY F FF13 x^ X FF4.-, 
A FFB2 XI . 



1 Jump instr to USR routine v,,-, - , >- « no^-r v 

M D3BP X M D77-3 X A D7 A0 Y A D7A3 X -. I i8^o a H riB>.C X 

H D3/b X H &87r X M D881 X H D883 X FTFOEI JT|;;1^^ 

A FD50 M FD59 F FDSB H FD61 A Fri67 M FD/. 

F FD74 M FE09 H FE18 JL^£^li\ 



2 Jump instr to USR routine 



A D799 Y ' A D79C X Y D362 X H D868 X H ri885 X 



M D3B1- X .. - ^^^ 

- H £(, lL. i A Fli 5 2 A FD69 M FF02 A FFOF H i-F2Ji 

F FE2F 



-3 i:-=i ffctive I/O device no (i or prompt surpr e s s ) 

A C35B M C364 Y C47C M C993 A C9CF A C9Ii2 

A C9E2 A CASE A CA6A A CA8A H CAB4 /^ CA(..I 



H CALU A CM) 6 H CAlJls A CAFJi A CBIO ACBT7 

A CB5D A CC06 A D792 Y A n795 X Y D85F X M B8A4 X 



M D337 X H EOF 2 



4 L=l Nulls for carriaSe return ^ linefeed (not ubpo ) 

M C76A X C9Ea A D78B Y A D78F X Y DS^A X H D8^0 X 



H LiBdV X H EOI-<^ 
L=l Cursor pos'n for INPUT <n PRINT ( coJ urrm where next- rh 



H C4DF Y A C4E1 Y H Cf-Ol Y M C9iiA H (:9M A C9F-9 
A CA14 A CA5A H CA62 Y n285 H F0F8 H FILF 
H EiD4 "^ ^ "^ ~ ~ 



6 L-1 Terminal width (not used) 



Technical cotnment on FOR/jIEXT loon structures . Ji^ Butterf ield , Toronto. 

Recent remarks on popular Basic imnlementaxtions indicate that 
difficulties may be encountered if the nrorran'ner .iu^^.Ds out of 
a FOR/rffiXT looD. 

This would be very serious if true. The nroprammer doinp a table 
search would be required to continue scanning the table even after 
finding the item he wants; or to use questionable nractices such 
as meddling with the loop variable while still within the loon. 

Fortunately, it's true only for a few cwnlex situjitions - and these 
are easv to fix if you understand how the d^nnm-'c FCPAl^TT loon 
works. (Dynamic loons are tho?e set un durinr an actual nrogram 
run, as contrasted to pre-comniled loops which are checked out 
before the actual run starts). 

i-Vhen a dyna-^iic intemreter. such as Microsoft l^asic. encounters 
a statement such as FOR J« . . . it sets un internal tables to manore 
the loon. These internal tables contain such things as: where to 
return if a NEXT J is encountered; the identity of the loon variable 
(in this case, J); whether the loon is counting up or down, etc. 

These tables will remain until one of three things hannens. 

If the loop goes through its complete range (by encountering 

a suitable number of NEXT J statements); if a new FOR J statement 

is found; or if a higher priority loop is terminated for either 

of the previous reasons. 

The last rule is very sensible, and it's worth a closer look. 

Suppose we have set up a sequence of commands such as: 

IfflffibcSJCinxo FOR 1= ... : FOR J= . . . : FOR K= ..,, and sunnose 

the computer, while dealing with these three loops, finds a 

new FOR I=... statement. It very wisely says, in its own comnute-^ese, 

"OK - looks like the big loon is being restarted; so the little 

ones are finished, too". And it promptly terminates the J and 

K loops, removing the tables from its memory. 

Fxactly what we ivant - but there are a couple of hidden gotchas 
that the user must know about when he nets into trickr coding 
routj nes . 

The easiest one to snot is the situation where every loon has 
a different variable name. The first loon is, say, ^0'' A ... 
the next one, FOR B ... and the nro, -rammer continues through 
the alnhabet with eac"i loon. 'lis idea is goor"; he can analv:-e 
how each loop has behaved, for each vari=;ble remains untouched 
for his examination. But each time he jumps out of a loon, 
the loop tables remain in memory, using un valuable stack or 
table space. He'd be much better off to give at least his 
outer loops the sane variable name, and reclaim that space. 

The second problem snot is a little more subtle, and an exaraple 
would best illustrate it. 



Here's a simple Drogram to irmut a strinp;, extract the individual 
words (eli'-lnatinc sinfle or mltinle spaces), and nrint them: 

100 EPUT S$ get the string 

110 K=l mark start-of-strinr 

120 FOR J=K TO IEN(S$) 

130 IF Mri)$(SS,J,l)<>" " ^-0^0 150 skio spaces 

IhO.MFXT J 

150 IF j>ii:n(s?^) goto 900 

160 FOR K=J TO KN(S$) 

170 IF MIB:M3-^,K,l)=" " GOTO 200 scnn to space or end 

180 TFXT K 

200 ^RIYF MTn-(S;^,J,K-J) 

800 IF K<»L''N(3$) GOTO 120 

900 ^m) 

The nro^-ram works wiite well, and isn't hard to follow. 

It should be noted that if either the J or K loops 

run to completion, the variable will have a value of IEN(SS)+1; 

this is intended and allowed for in lines l50 and 800. 

Before we extend this program into catastrophe, let's note 
one thing: by the time the program reaches line 200, both 
the J and K loops will still be open most of the time - 
we "jumped out" of both of them. Mo real problem; v*ien we 
go back to 120, the new FOR J= .. will cancel them both. 

Now let's get into trouble. \-'e may be writing a little FLIZA 
here, and want to check the word we've found against a 
table of keywords so as to pick a suitable reply. 
Vfe'll assuna a table of twenty keywords, and start to build 
a search loop. Replacing line 200, we start' a new loot): 

200 X$ = Mr'$(S$,J,K-J) pet word 

210 FOR 1=1 TO 20 



Our loop is now thrc("i deep - J and K are still considered active, 
romc-mb'^r? No ororlem with three-level loops; we 'r^ still OK. 

Put hero's wher-^ we might get clever and wreck everything, ''e 
need to nreserve K - that's where our search for the next word 
will start. But J has served its ourr^ose. and coi;ld be used 
"rain, r^'-ht? '/ell .. let's see. 

This table of 20 words is really a double table. It contains 
pairs of words such as "I", "YOU", or "MY", "YOUR". To make our 
comDuter talk we must spot a word from eitiier column, and switch 
in the word from the opposite column (so that "I HAY': FLEAS" will 
become "YOU riAVF, FISAS"). So we need one more loop to search 
over the two columns. 



V 



Let's be clever and use J, since we have decided that^ it isn't 
needed any more at this point. We code: 

220 FOR J=l TO 2 

230 IF X$=T?«;(I,J) TIIFN Xo=T£(l,3-J): ■'^'OTO hOO swan word 

?hO N^XT J 

250 NEXT I 

hoc PRINT J^;" "; r'^ne-.t word 

Suddenly ever\rthin" stons working, and the world tumbles down 
around our prorram. \-Jhat hapnened? 

Let's stoD and analyse. Just before executing lino ?20, the 
computer had three active loops, with variables J, X, and I. 
Now it reaches line 220, and what does it see? A loon based on J, 
the "biggest" loop! So what does it do? It cancels the K and I 
loops, of course, and starts a new J loop. 

When we reach line 250, the cotTiputer sees :EXT I - but it no longer 
has an active FOR 1= loop, and you get a WXT >/ITHOl?T FOR error notice. 

The rule here is slightly more complex, but not too touph. If you 
use J as an "outer" loop variable, never use it for an inner loop. 
If we reversed I and J in the coding from 210 to 2^0, we'd have 
no problem. Try to think in terms of the hierarchy of loops, and 
you can make sure that a given variable is used only at its 
proper hierarchy level. 

l£t 's try to out the rules together and create a tiny Eliza, polishing 
up some of the coding as we go. You'll have fun adding your own 
features to it. 

100 PI!1 TS(l,h) two by five array 

110 PATA ME,YOIJ,I,YOTT,T^f,YOIIR,AM,ARE,'-''.''S:?T.F,'f'Oiro.--'"'LF 

120 FOR J=0 TO h 

130 FOR K=0 TO 1 

UO READ T^CJ.K) 

150 '^lEXT K 

160 T>r^XT J 

170 INPiIT Sf> 

160 Kl=l 

190 FOR J=K1 TO LE.N(S$) 

200 IF MID;$(S$,J,1) = " " THEN NEXT J 

210 J1=J 

220 IF J>LEN(S$) GOTO 900 

230 FOR J=J1 TO LEN(S$) 

2UO IF MID$(S$,J,1)<>" " THEN NEl!T J 

250 Kl ■= J 

260 X$=I-a:D$(S$,Jl,Kl-Jl) 

270 FOR J=0 TO U 

280 FOR K=0 TO 1 

290 IF T$(K,J)=X$ THEN XS=T$(l-K, J):a0T0 320 

300 NEXT K 

310 NEXT J 

320 PRINT " ";X$; 

330 IF ia<=LEN(S$) GOTO 190 

^00 CQ-Td n^ 



y> 



Notp that the outermost loon is now alwa^/s called J, the next down 
alwa^fs K. I've tightened un the arra^'^/' to use th'^ zero rovjs and 
columns to save menory; and the search loops are a little faster. 

Bven thouph the nropram is riddled with nremature loon exi«ts, there 
are no nroblems. Just observe a few sinnle rules, and you'll have 
efficient and trouble-free loops. 



Cui'iiPuter City has- aj-snounoed sotue ne^.v products -for PET. 
I !• '1 + e r n a. L P. H f'l e ••:; >-• an s i o n b o -Br- d s 

32 K. $4?5,00 
f? e s e t S ..M i t o h e-B * 2 9 . y 5 

rlacfUfie laj-vHiua.-i*e editor,, assemb ler and disassembler paoka-se 
,iiiti--i :-'■'-, ":.aiiia3 of dooufnenta.tion i-or $39.95 
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! o r e I n -f o r n! at i o r c o n t a.c t S t u i:! f- 1 3 l-"i t at '■ 
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The PET® Gazette With A New Name 

COMPUTE. 

The Journal for Progressive Computing 



From: the new publisher of the PET® Gazette AUGUST 1 1979 

To: readers of the PET Gazette 

During the past year, the PET Gazette has grown from a one page newsletter with a circulation of 50 to a 
multi-pxjge magazir>e with a circulation of over 4000. Due to this rapid growth the magazine has reached a crucial 
turning point. Len has been almost single hardedly publishing the magazine each issue, and writing for it and many 
other magazines, as well as typing it, handling advertising placement, and followups, and new subscribers, and print- 
ers, and ... well you get the picture. The demand for the PET Gazette has begun to exceed his individual resources. 
Regardless of best intentions, the press of business problems left Nm falling behind in adding new subscribers, press- 
ing his printer for delivery, and so on. Worst of all, he fourvd himself tosing the time needed for writing and programming. 

The solution? Small System Sen/ices, Inc. has now acquired the PET Gazette. We're responsible for handling the 
many problems a ociated with bringing an active, energetic magazine from conception to your door. We're lining 
up an industry sensitive group of contributing editors; we're expanding the emphasis of the magazine. You'll still see 
the PET Gazette with a primary emphasis on the products (and problems) of Commodore Business Machines, Inc. But" 
you'll see other 6502 products as well. And continuirKI features on such areas as Education, Business, New Prod- 
ucts, and Reviews. You'll see an on-going illustrative column on maintenance and trouble shooting for a wide range 
of problems. And you'll get advice on program design and style. Pius new features to bring you more information 
from several viewpoints. You will most assuredly benefit from all these additions. 

Your role as a reader? We'll continue to solicit your advice and written contributior,s. From our perspective, 
we'll shape up. The PET Gazette's next issue will be a massive super issue. Fall 1979, including a Christmas Buyers 
Guide, and general hints of whaf s to come. We're upgrading the quality of the magazine, and redesigning it for 
reading ease and practical use. This super issue of the New PET Gazette will be distributed free to all current subscrib- 
ers. It will be followed by ttie first of our normal bi-monthly issues. As of the January/February 1980 issue the PET 
Gazette will carry an annual subscription price of S9.00 for 6 issues. The single copy newstand price will be S2.00. A 
third optica which we encourage where feasible, is a "persorval/retail" subscription. You subscribe through us at the 
reduced annual rate of $7.50, and each of your prepaid issues will be included in the advance shipment to your local 
dealer with his standing order. You simply stop in and pick up your prepaid copy. We save the mailing costs, and you 
get your issue as fast as UPS reacties your dealer, and save a few dollars to boot. 

But what happens to Len Lindsay after all this? Well, we've acquired the PET Gazette, not Len Lindsay. He'll 
give up the title of jack-of-all-trades while retaining the title of Senior Contributing Editor. He'll remain his outspoken 
self with no allegiance to anyone. We'll handle the business end, help coordinate the material from the newly added 
associate editors, etc. but best of all, Len will return to the more exciting aspects of this "business" ... writing, program- 
ming, and reviewing. The new expanded PET Gazette will continue to include all the help and information as previ- 
ously, but will now also include articles and columns by the leading names in the field. Included will be specific help 
with PET Assembly Language Programming and good hardware help. 

Stick with us. If s an exciting time for the r^w PET Gazette. Our title is "COMPUTE, the Journal for Progressive 
Computing.T"^' We plan to live up to the goals implicit in that statement. If you've sent in a donation check to Len 
since May 1, let us know if you wish it applied toward your new subscription (include a photocopy of your receipt from 
Len). If you ore interested in our "Personal/Retail" subscription plan, include the name, address, and phone number of 
the dealer you'd like to subscribe through along with your check. Checks should be mode payable to: "COMPUTE." 
Regardless of your decision now, you can expect to see the next issue of the new expanded PET Gazette in early 
October. Or stop by the PET Gazette booth (119-A) at the Boston Computer show Sept. 28-30. We hope you are as 
excited as we ore about these improvements and additions to the PET Gazette. Thank you for your continued support. 

Cordially, 

Robert C. Lock President, Small System Services,. Inc. 

Len Lindsay Senior Contributing Editor, COMPUTE. The Journal for Progressive Computing''^ 

PET® is a trademark of Commodore Business Machines, Inc. 

"COMPUTE. The Jourrral for Progressive Computing" is a trademark of Small System Sen/ices, Inc. 

900-902 Spring Garden Street 
Greensboro, N.C. 27403 
919-272-4867. 
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